--- Issue 294, code generation aborts with "can't adapt" 
--- when undefined is assigned a constrained type
module tests.comp.Issue294 where

schlecht :: Eq a => a -> a
schlecht  = undefined

-- the following is fine instead
-- schlecht x = undefined x

 
 
main = println true